#!/usr/bin/env perl

use utf8;
use strict;
use 5.010;

sub greet{
	state @name;
	
	if(@name == ()){
		print "Hi $_[0]! You are the first one here!\n";
	}
	else{
		print "Hi $_[0]! @name is also here\n";
	}
	push @name, $_[0];
}

greet("Fred");
greet("Barney");
